 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: List All ADAM Group Attributes and Values
|
||
|
' Description: Lists all the attributes and values for an ADAM group named Accountants.
On Error Resume Next Set objUser = GetObject _ ("LDAP://localhost:389/cn=Accountants,ou=Accounting,dc=fabrikam,dc=com") Set objUserProperties = GetObject("LDAP://localhost:389/schema/group") For Each strAttribute in objUserProperties.MandatoryProperties strValues = objUser.GetEx(strAttribute) For Each strItem in strValues Wscript.Echo strAttribute & " -- " & strItem Next Next For Each strAttribute in objUserProperties.OptionalProperties strValues = objUser.GetEx(strAttribute) If Err = 0 Then For Each strItem in strValues Wscript.Echo strAttribute & " -- " & strItem Next Else Wscript.Echo strAttribute & " -- No value set" Err.Clear End If Next | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
